E (SETQ $PRINT-BUDGET-MONTHLY t)
READ (SALARY IN DSK (PRO HE))
READ (md IN DSK (PRO HE))
BUDGET first-year (md OUT DSK (PRO HE))